home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / libs / Identify.lha / Identify / arexx / system.ify < prev    next >
Text File  |  1997-04-24  |  3KB  |  93 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  system.ify          rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15.  
  16.  
  17.   /* Get every information about the hardware */
  18. system    = ID_Hardware("SYSTEM")
  19. cpu       = ID_Hardware("CPU")
  20. fpu       = ID_Hardware("FPU")
  21. mmu       = ID_Hardware("MMU")
  22. osver     = ID_Hardware("OSVER")
  23. execver   = ID_Hardware("EXECVER")
  24. wbver     = ID_Hardware("WBVER")
  25. romsize   = ID_Hardware("ROMSIZE")
  26. chipset   = ID_Hardware("CHIPSET")
  27. gfxsys    = ID_Hardware("GFXSYS")
  28. chipram   = ID_Hardware("CHIPRAM")
  29. fastram   = ID_Hardware("FASTRAM")
  30. ram       = ID_Hardware("RAM")
  31. setpatch  = ID_Hardware("SETPATCHVER")
  32. audiosys  = ID_Hardware("AUDIOSYS")
  33. osnr      = ID_Hardware("OSNR")
  34. vmmchip   = ID_Hardware("VMMCHIPRAM")
  35. vmmfast   = ID_Hardware("VMMFASTRAM")
  36. vmmram    = ID_Hardware("VMMRAM")
  37. plnchip   = ID_Hardware("PLNCHIPRAM")
  38. plnfast   = ID_Hardware("PLNFASTRAM")
  39. plnram    = ID_Hardware("PLNRAM")
  40. vbr       = ID_Hardware("VBR")
  41. lastalert = ID_Hardware("LASTALERT")
  42. vblank    = ID_Hardware("VBLANKFREQ")
  43. power     = ID_Hardware("POWERFREQ")
  44. eclock    = ID_Hardware("ECLOCK")
  45. slowram   = ID_Hardware("SLOWRAM")
  46. gary      = ID_Hardware("GARY")
  47. ramsey    = ID_Hardware("RAMSEY")
  48. battclock = ID_Hardware("BATTCLOCK")
  49.  
  50.  
  51.   /* Some nice formatting */
  52. IF Left(system,1)='A'                   /* English grammar... */
  53.   THEN system = 'an '||system
  54.   ELSE system = 'a '||system
  55.  
  56. chipram   = Right(chipram,7)            /* 7 chars wide */
  57. fastram   = Right(fastram,7)
  58. ram       = Right(ram,7)
  59. vmmchip   = Right(vmmchip,7)
  60. vmmfast   = Right(vmmfast,7)
  61. vmmram    = Right(vmmram,7)
  62. plnchip   = Right(plnchip,7)
  63. plnfast   = Right(plnfast,7)
  64. plnram    = Right(plnram,7)
  65.  
  66. IF Left(lastalert,8)='FFFFFFFF'         /* Do we have an alert code? */
  67.   THEN lastalert = "no alert yet... :)"
  68.  
  69.  
  70.   /* Now tell the user what we've found... */
  71. SAY "This is" system "with" chipset "Chipset."
  72. SAY "It has a" cpu "CPU," fpu "FPU and" mmu "MMU."
  73. SAY ""
  74. SAY "Versions:     OS" osver "(known as" osnr ||") Exec" execver "Workbench" wbver ||"."
  75. SAY "              SetPatch" setpatch ||", ROM size" romsize
  76. SAY ""
  77. SAY "Multimedia:   Graphics" gfxsys ||", Audio" audiosys
  78. SAY ""
  79. SAY "Specialities: VBR" vbr ||", Gary" gary ||", Ramsey" ramsey ||", Clock" battclock
  80. SAY "              E-Clock" eclock ||", VBlank" vblank ||", Power" power
  81. SAY ""
  82. SAY "Memory:                 CHIP   FAST  TOTAL    (SLOW" slowram ||")"
  83. SAY "              REAL   " plnchip plnfast plnram
  84. SAY "              VIRTUAL" vmmchip vmmfast vmmram
  85. SAY "              TOTAL  " chipram fastram ram
  86. SAY ""
  87. SAY "Last alert:  " lastalert
  88. SAY ""
  89.  
  90. EXIT
  91.  
  92.  
  93.